home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0018_How do I use a joystick in TP70??.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  1.0 KB  |  74 lines
  1. unit ujoy;
  2.  
  3. interface
  4.  
  5. Function JOYPRESENT:Boolean;
  6. Procedure JOYINFO(var X1,Y1,X2,Y2:integer; var buttons:byte);
  7.  
  8. implementation
  9.  
  10. Function JOYPRESENT:Boolean;
  11.  
  12. var b:byte;
  13. Begin
  14.   b:=0;
  15.   asm
  16.     mov ah,$84
  17.     mov dx,0
  18.     int 15h
  19.     jnc @prs
  20.     mov b,$ff
  21.     @prs:
  22.   end;
  23.   joypresent:=b=0;
  24. End;
  25. (*  Buttons AND 16 = 0 dann ist 1. Knopf vom 1.Joy gedrueckt *)
  26. (*  Buttons AND 32 = 0 dann ist 2. Knopf vom 1.Joy gedrueckt *)
  27. (*  Buttons AND 64 = 0 dann ist 1. Knopf vom 2.Joy gedrueckt *)
  28. (*  Buttons AND 128= 0 dann ist 2. Knopf vom 2.Joy gedrueckt *)
  29. Procedure JOYINFO(var X1,Y1,X2,Y2:integer; var buttons:byte);
  30. var x1b,y1b,x2b,y2b:integer;
  31.     bs:byte;
  32. Begin
  33.   asm
  34.     mov dx,0
  35.     mov ah,$84
  36.     int 15h
  37.     mov bs,al
  38.  
  39.     mov dx,1
  40.     mov ah,$84
  41.     int 15h
  42.     mov x1b,ax
  43.     mov y1b,bx
  44.     mov x2b,cx
  45.     mov y2b,dx
  46.   end;
  47.   x1:=x1b;
  48.   y1:=y1b;
  49.   x2:=x2b;
  50.   y2:=y2b;
  51.   buttons:=bs;
  52. End;
  53.  
  54. end.
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62. --------------------- cut ----------
  63.  
  64.  
  65.  
  66.  
  67.  
  68. end of mail
  69.  
  70.  
  71.  
  72.  
  73.  
  74.